Define CharList
 ( 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P',
   'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f',
   'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v',
   'w', 'x', 'y', 'z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '~', '`',
   '!', '@', '#', '$', '%', '^', '&', '*', '(', ')', '-', '_', '=', '+', '[', '{',
   ']', '}', ';', ':',"'", '"', ',', '<', '.', '>', '/', '?');

Define WidthList
 (  10,  11,   9,  11,  10,   9,  11,  11,   4,   5,  10,   9,  14,  10,  11,  10,
    11,  10,   9,   7,  11,  10,  14,  11,  10,   9,  9,   9,   8,   9,   9,   6,
    9,   9,   4,   4,   9,   4,  12,   9,  10,  10,  10,   6,   8,   6,   9,   9,
    12,   8,   9,   9,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11,   9,   6,
     4,  12,  10,   9,  12,   8,  12,   7,   4,   4,   5,   9,  11,  11,   5,   5,
     5,   5,   4,   3,   3,   5,   3,   9,   3,   8,  10,   9);

Define RectList
 ( (   0,  0, 22, 31), (  23,  0, 20, 31), (  44,  0, 18, 31), (  63,  0, 20, 31),
   (  84,  0, 18, 31), ( 103,  0, 18, 31), ( 122,  0, 20, 31), ( 143,  0, 20, 31),
   ( 164,  0, 13, 31), ( 178,  0, 13, 31), ( 192,  0, 19, 31), ( 212,  0, 18, 31),
   ( 231,  0, 23, 31), ( 255,  0, 19, 31), ( 275,  0, 20, 31), ( 296,  0, 20, 31),
   ( 317,  0, 20, 31), ( 338,  0, 20, 31), ( 359,  0, 19, 31), ( 379,  0, 19, 31),
   ( 399,  0, 19, 31), ( 419,  0, 22, 31), ( 442,  0, 24, 31), ( 467,  0, 22, 31),
   ( 490,  0, 21, 31), ( 512,  0, 19, 31), ( 532,  0, 18, 31), ( 551,  0, 18, 31),
   ( 570,  0, 16, 31), ( 587,  0, 18, 31), ( 606,  0, 18, 31), ( 625,  0, 13, 31),
   ( 639,  0, 18, 31), ( 658,  0, 18, 31), ( 677,  0, 13, 31), ( 691,  0, 14, 31),
   ( 706,  0, 19, 31), ( 726,  0, 13, 31), ( 740,  0, 21, 31), ( 762,  0, 18, 31),
   ( 781,  0, 19, 31), ( 801,  0, 18, 31), ( 820,  0, 18, 31), ( 839,  0, 14, 31),
   ( 854,  0, 18, 31), ( 873,  0, 13, 31), ( 887,  0, 18, 31), ( 906,  0, 19, 31),
   ( 926,  0, 23, 31), ( 950,  0, 20, 31), ( 971,  0, 18, 31), ( 990,  0, 19, 31),
   (1010,  0, 20, 31), (1031,  0, 13, 31), (1045,  0, 19, 31), (1065,  0, 19, 31),
   (1085,  0, 19, 31), (1105,  0, 19, 31), (1125,  0, 20, 31), (1146,  0, 19, 31),
   (1166,  0, 20, 31), (1187,  0, 20, 31), (1208,  0, 19, 31), (1228,  0, 14, 31),
   (1243,  0, 12, 31), (1256,  0, 22, 31), (1279,  0, 20, 31), (1300,  0, 19, 31),
   (1320,  0, 22, 31), (1343,  0, 20, 31), (1364,  0, 22, 31), (1387,  0, 16, 31),
   (1404,  0, 13, 31), (1418,  0, 14, 31), (1433,  0, 15, 31), (1449,  0, 21, 31),
   (1471,  0, 20, 31), (1492,  0, 20, 31), (1513,  0, 13, 31), (1527,  0, 13, 31),
   (1541,  0, 13, 31), (1555,  0, 14, 31), (1570,  0, 13, 31), (1584,  0, 13, 31),
   (1598,  0, 13, 31), (1612,  0, 15, 31), (1628,  0, 13, 31), (1642,  0, 19, 31),
   (1662,  0, 13, 31), (1676,  0, 20, 31), (1697,  0, 20, 31), (1718,  0, 18, 31));

Define OffsetList
 ( (-6, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0),
   (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0),
   (-4, 0), (-4, 0), (-5, 0), (-5, 0), (-4, 0), (-6, 0), (-5, 0), (-6, 0),
   (-6, 0), (-5, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0),
   (-4, 0), (-4, 0), (-5, 0), (-6, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0),
   (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-5, 0), (-3, 0), (-4, 0), (-5, 0),
   (-5, 0), (-6, 0), (-4, 0), (-5, 0), (-4, 0), (-1, 0), (-4, 0), (-4, 0),
   (-5, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-4, 0), (-5, 0), (-4, 0),
   (-4, 0), (-5, 0), (-5, 0), (-5, 0), (-5, 0), (-6, 0), (-5, 0), (-5, 0),
   (-4, 0), (-5, 0), (-5, 0), (-6, 0), (-5, 0), (-5, 0), (-4, 0), (-4, 0),
   (-4, 0), (-4, 0), (-5, 0), (-5, 0), (-5, 0), (-5, 0), (-5, 0), (-5, 0),
   (-5, 0), (-6, 0), (-5, 0), (-5, 0));

CreateLayer               Main;
LayerSetImage             Main 'ContinuumMedium13';
LayerSetAscent            Main 22;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (5);
LayerSetImageMap          Main CharList RectList;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 5;
LayerSetLineSpacingOffset Main -5;
LayerSetPointSize         Main 13;

SetDefaultPointSize  13;
